home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 04 - 05 - 06 (1990)(MindCraft Publishing)[no boot].zip
/
Nibble Volume 11, No. 04 - 05 - 06 (1990)(MindCraft Publishing)[no boot].po
/
NIBBLE.1990:MAY.VOL11.NO05
/
COLORED.BLOCKS.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
152b
|
10 lines
10 GR : COLOR= 1
20 FOR X = 0 TO 39
30 FOR Y = 0 TO 39
40 PLOT X,Y
50 C = C +1
60 COLOR= C
70 IF C >15 THEN C = 0
80 NEXT Y
90 NEXT X
100 END